home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / MNTHNAME.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  340b  |  15 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE:'QBTOOLS2.INC'
  3.  
  4.  
  5. FUNCTION MonthName$ (Month%) STATIC
  6.  
  7. Month$ = MID$("January  February March    April    May      June     July     August   SeptemberOctober  November December ", (Month% - 1) * 9 + 1, 9)
  8.  
  9. Month$ = LTRIM$(Month$)
  10. Month$ = RTRIM$(Month$)
  11.  
  12. MonthName$ = Month$
  13.  
  14. END FUNCTION
  15.